10 REM - PEGSOL.081785
20 DIM A$(3),B(37),C$(16),C(37)
30 RS=828:FORA=RS TO859:READB:POKEA,B:NEXT:REM SELECTIVE RESTORE
31 DATA32,253,174,32,158,173,32,247,183,32,19,166,176,5,162,17,76,55,164
32 DATA165,95,233,1,133,65,165,96,233,0,133,66,96
40 PRINT"[147]":POKE53280,14:POKE53281,6:U$="[145]":W$="":GOTO1665
49 REM - CURSOR RTN
50 IFDY=1THEN DY=7:POKEVV+3,208:YS=208:RETURN
51 IFDY=2AND(DX=2ORDX=6)THEN DY=6:POKEVV+3,184:YS=184:RETURN
52 IFDY=3AND(DX=1ORDX=7)THEN DY=5:POKEVV+3,160:YS=160:RETURN
53 YS=YS-24:DY=DY-1:POKEVV+3,YS:RETURN
60 IFDY=5AND(DX=1ORDX=7)THEN DY=3:POKEVV+3,112:YS=112:RETURN
61 IFDY=6AND(DX=2ORDX=6)THEN DY=2:POKEVV+3,88:YS=88:RETURN
62 IFDY=7THEN DY=1:POKEVV+3,64:YS=64:RETURN
63 YS=YS+24:DY=DY+1:POKEVV+3,YS:RETURN
70 POKEVV+16,2:IFDX=1THEN DX=7:POKEVV+2,46:XS=302:RETURN
71 IFDX=2AND(DY=2ORDY=6)THEN DX=6:POKEVV+2,6:XS=262:RETURN
72 POKEVV+16,0:IFDX=3AND(DY=1ORDY=7)THEN DX=5:POKEVV+2,222:XS=222:RETURN
73 IFXS-40<255THEN75
74 XY=XS-296:XS=XS-40:POKEVV+16,2:POKEVV+2,XY:DX=DX-1:RETURN
75 DX=DX-1:XS=XS-40:POKEVV+2,XS:RETURN
80 POKEVV+16,0:IFDX=5AND(DY=1ORDY=7)THEN DX=3:POKEVV+2,142:XS=142:RETURN
81 IFDX=6AND(DY=2ORDY=6)THEN DX=2:POKEVV+2,102:XS=102:RETURN
82 IFDX=7THEN DX=1:POKEVV+2,62:XS=62:RETURN
83 IFXS+40<255THEN85
84 XY=XS-216:XS=XS+40:POKEVV+16,2:POKEVV+2,XY:DX=DX+1:RETURN
85 DX=DX+1:XS=XS+40:POKEVV+2,XS:RETURN
90 JO%=5:RETURN
130 POKEVO,15:POKEWV,17:POKEAT,15:POKEHI,68:POKELO,149
140 FOR TM=1 TO 100:NEXT TM:POKEWV,0
150 POKEVO,15:POKEWV,17:POKEAT,15
160 POKEWV,17:POKEHI,34:POKELO,75
170 FOR TM=1 TO 100:NEXT TM:POKEWV,0:RETURN
180 POKE781,P/40:POKE782,P-40*PEEK(781):POKE783,0:SYS65520:RETURN
190 OPEN4,4:PRINT#4:CLOSE4:IF ST AND 128 THEN2760:REM PRINTER ON/OFF TEST
200 OPEN3,3:OPEN4,4:PRINT"";:FORI=0TOSC:GET#3,A$:PRINT#4,A$;:NEXT:CLOSE3:CLOSE4
210 GOTO2710
220 FOR X=1 TO 37:B(X)=2:NEXT:B(19)=1
230 NM$="PEG SOLITAIRE":AA=1:GOSUB270:AA=0
240 FOR TM=1 TO 2500:NEXT TM
250 GOSUB1330
260 REM - PUZZLE SCREEN
270 CT=FRE(0):POKE781,0:SYS59903:PRINT""TAB((44-LEN(NM$))/2)""NM$"[146]":PRINT
280 PRINTTAB(15)"[159]13   14   15":IFDY=1THENGOSUB130
290 V=3:P=135:GOSUB180:PRINTA$(B(1));U$SPC(V)A$(B(2));U$SPC(V)A$(B(3))
310 PRINTTAB(10)"[159]22   23   24   25   26":IFDY=2THENGOSUB130
320 PRINTTAB(10)A$(B(4));U$SPC(V)A$(B(5));U$SPC(V)A$(B(6));U$SPC(V)A$(B(7));
330 PRINTU$SPC(V)A$(B(8))
350 PRINTTAB(5)"[159]31   32   33   34   35   36   37":IFDY=3THENGOSUB130
360 PRINTTAB(5)A$(B(9));U$SPC(V)A$(B(10));U$SPC(V)A$(B(11));
370 PRINTU$SPC(V)A$(B(12));
380 PRINTU$SPC(V)A$(B(13));U$SPC(V)A$(B(14));U$SPC(V)A$(B(15))
400 PRINTTAB(5)"[159]41   42   43   44   45   46   47":IFDY=4THENGOSUB130
410 PRINTTAB(5)A$(B(16));U$SPC(V)A$(B(17));U$SPC(V)A$(B(18));
420 PRINTU$SPC(V)A$(B(19));U$SPC(V)A$(B(20));U$SPC(V)A$(B(21));
430 PRINTU$SPC(V)A$(B(22))
450 PRINTTAB(5)"[159]51   52   53   54   55   56   57":IFDY=5THENGOSUB130
460 PRINTTAB(5)A$(B(23));U$SPC(V)A$(B(24));U$SPC(V)A$(B(25));
470 PRINTU$SPC(V)A$(B(26));U$SPC(V)A$(B(27));U$SPC(V)A$(B(28));
480 PRINTU$SPC(V)A$(B(29))
500 PRINTTAB(10)"[159]62   63   64   65   66":IFDY=6THENGOSUB130
510 PRINTTAB(10)A$(B(30));U$SPC(V)A$(B(31));U$SPC(V)A$(B(32));
520 PRINTU$SPC(V)A$(B(33));U$SPC(V)A$(B(34))
540 PRINTTAB(15)"[159]73   74   75":IFDY=7THENGOSUB130
550 PRINTTAB(15)A$(B(35));U$SPC(V)A$(B(36));U$SPC(V)A$(B(37))
570 A=99:Y=120:FORX=1202TO1992STEPY:POKEX,A:NEXT
580 FORX=1207TO1997STEPY:POKEX,A:NEXT
590 FORX=1317TO1797STEPY:POKEX,A:NEXT
600 FORX=1332TO1812STEPY:POKEX,A:NEXT
610 FORX=1432TO1672STEPY:POKEX,A:NEXT
620 FORX=1457TO1697STEPY:POKEX,A:NEXT
621 IFAA=0THEN640
622 P=972:GOSUB180:PRINT"K[146]EYBOARD/J[146]OYSTICK ";:POKE198,0
623 GETKJ$:IFKJ$=""THEN623
624 IFKJ$<>"K" AND KJ$<>"J" THEN623
625 PRINTKJ$;:IFKJ$="K" THEN DI$="[159][145]I[157][157]J*K[157][157]M"
630 IF AA=1 THENRETURN
640 IFZZ=0 OR ZZ=1 THEN710
650 P=965:GOSUB180:PRINT"'F1' - NEXT     'F7' - MENU";
660 B=B+1:IFB=15 THENB=0:GOTO660
670 GETKY$:IFKY$=""THEN670
680 KY=-(KY$="[133]")-2*(KY$="[136]")
690 ONKYGOTO1430,1330:GOTO670
700 REM - SOLVED?
710 IFSS=SLVTHENIFMID$(D$,S,1)="2"THENER=5:POKEVV+21,0:GOSUB1210:GOTO730
720 GOTO765
730 POKE781,24:SYS59903:P=970:GOSUB180:PRINT"[159]SOLUTION SCREEN [Y/N]: ";:POKE198,0
740 GET KY$:IF KY$="" THEN740
750 KY=-(KY$="Y")-2*(KY$="N")
760 ON KY GOTO2120,762:GOTO740
762 RUN
765 IFKJ$="K" THENP=764:GOSUB180:PRINTDI$;
770 P=868:GOSUB180:PRINT"[159]MOVE #[146]";
780 P=970:GOSUB180:PRINT"[159]FROM[146]"TAB(24)"[159]TO[146]";
790 P=975:GOSUB180:PRINT"   ";:GOSUB180:PRINT"";
791 T=0:POKEVV+21,2:IFZZ=0THEN810
800 READFR$,TU$:P=975:GOSUB180:PRINTW$FR$;SPC(11)TU$;:FORTM=1TO750:NEXT:GOTO879
810 POKEVV+16,0:POKEVV+2,SX:POKEVV+3,SY:DX=3:DY=1:XS=SX:YS=SY:GOTO818
811 IFJO%=5THEN860
812 IFPEEK(197)=3THENPOKEVV+21,0:GOTO1650
815 IFPEEK(197)=4THENPOKEVV+21,0:GOTO2790
818 IFKJ$="K"THEN POKE650,128:POKE198,0:GOTO828
820 JO%=J2-PEEK(PRT2)
821 JO%=-(JO%=1)-2*(JO%=2)-3*(JO%=4)-4*(JO%=8)-5*(JO%=16):GOTO830
828 GETKB$:IFKB$=""THEN828
829 JO%=-(KB$="I")-2*(KB$="M")-3*(KB$="J")-4*(KB$="K")-5*(KB$="*")
830 ONJO%GOSUB50,60,70,80,90:POKE650,0:GOTO811
860 IFT=1THEN960
870 H=DY*10+DX:P=975:GOSUB180:PRINTH;:CT=FRE(0)
879 IFZZ=1THENH=VAL(FR$):DY=VAL(LEFT$(FR$,1))
880 F1=H:GOSUB1570:FR=H:C(FR)=VAL(MID$(D$,FR,1))
890 FS$=MID$(D$,FR,1):IFFS$="1"ORFS$="3"THENER=1:GOTO1210
900 T=1:IFZZ=1THENH=VAL(TU$):GOTO970
910 P=987:GOSUB180:PRINT"   ";:GOSUB180:PRINT"";:GOTO810
960 T=0:H=DY*10+DX:CT=FRE(0):P=987:GOSUB180:PRINTH;
970 T1=H:GOSUB1570:TU=H:C(TU)=VAL(MID$(D$,TU,1))
990 TS$=MID$(D$,TU,1)
1000 IF TS$="2" THENER=2:GOTO1210
1010 IF FS$="3" OR TS$="3" THENER=3:GOTO1210
1020 FS$="":TS$="":CT=FRE(0)
1030 IF ABS(F1-T1)=2 OR ABS(F1-T1)=20 THEN1110
1040 ER=3:GOTO1210
1050 REM - SWITCH PIECES
1060 C=C(TU):C(TU)=C(FR):C(FR)=C
1070 D$="":SS=.:FOR X=1 TO 37:D$=D$+RIGHT$(STR$(C(X)),1):SS=SS+C(X):NEXT
1080 P=975:GOSUB180:PRINT"   ";:P=987:GOSUB180:PRINT"   ";
1090 IF FT<>F1 THENP=874:GOSUB180:MV=MV+1:PRINTSTR$(MV);
1100 FT=T1:FOR X=1 TO 37:B(X)=VAL(MID$(D$,X,1)):NEXT:FR$="":TU$="":GOTO270
1110 IF ABS(F1-T1)=20 THEN1130
1120 GOTO1170
1130 IF F1>T1 THEN1150
1140 H=F1+10:GOTO1160
1150 H=F1-10
1160 GOSUB1570:IFER=4THEN1210
1161 C(H)=1:GOTO1060
1170 IF F1>T1 THEN1190
1180 H=F1+1:GOTO1200
1190 H=F1-1
1200 GOSUB1570:IFER=4THEN1210
1201 C(H)=1:GOTO1060
1210 DY=0:IFZZ=1THENER=6
1220 B1=1220+(ER*10):POKE785,188:POKE786,168:POKEB1,PEEK(B1):B1=USR(0)
1230 ER$="'FROM' POSITION EMPTY[146]":GOSUB1290:GOTO270
1240 ER$="'TO' POSITION OCCUPIED[146]":GOSUB1290:GOTO270
1250 ER$="INVALID MOVE[146]":GOSUB1290:GOTO270
1260 ER$="INCORRECT 'FROM/TO' POSITION[146]":GOSUB1290:GOTO270
1270 ER$="CONGRATULATIONS!!!  PUZZLE SOLVED.[146]":GOSUB1290:RETURN
1280 ER$="PUZZLE SOLVED![146]":GOSUB1290:RETURN
1290 POKE781,24:SYS59903
1300 P=960:FORX=1TO5:GOSUB180:PRINTTAB(22-(LEN(ER$)/2))ER$;:FORTM=1TO500:NEXT TM
1310 POKE781,24:SYS59903:FORTM=1TO500:NEXTTM,X:ER$="":RETURN
1320 REM - MAIN MENU
1330 POKE53280,6:POKE53281,0:ZZ=0:MV=0
1340 PRINT"[147]":PRINTTAB(14)"PEG SOLITAIRE[146]":PRINT
1350 FOR X=1 TO 16:PRINTTAB(5)CHR$(X+64)". ";C$(X):NEXT
1360 P=810:GOSUB180:PRINT"SELECT CHOICE: ";:POKE198,0
1370 GET PZ$:IFPZ$=""THEN1370
1380 FORI=1TO16:IFPZ$=MID$("ABCDEFGHIJKLMNOP",I,1)THENPZ=ASC(PZ$)-64:GOTO1400
1390 NEXT:GOTO1370
1400 PRINTPZ$;:FORTM=1TO500:NEXT:D$="":B=PZ
1410 IF B=15THENB=1:ZZ=2:MV=1:PRINT"[147]"
1420 IFPZ=16 THENPRINT"[147]":POKE53280,14:POKE53281,6:END
1430 B1=1770+(B*20):POKE785,188:POKE786,168:POKEB1,PEEK(B1):B1=USR(0)
1440 IFZZ=0THEN D1$=D$:SYS RS,1710:FORX=1TOPZ:READPP$,JJ$,CC$:NEXT:GOSUB1480
1450 FOR X=1 TO 37:B(X)=VAL(MID$(D$,X,1)):C(X)=B(X):NEXT
1460 NM$="":POKE53280,8:POKE53281,6:NM$=C$(B):SS=.:IFZZ=0THENPRINT"[147]"
1470 GOTO270
1480 PRINT"[147]":S1$=""+C$(PZ)+"[146]":PRINTTAB(15-(LEN(C$)/2));S1$
1490 PRINT" IN ORDER TO SOLVE THIS PUZZLE, REMOVE"
1500 S1$=""+PP$+"[146]":S2$=""+JJ$+"[146]"
1510 PRINT" "S1$;" PIECES IN ";S2$;" MOVES LEAVING THE LAST":S1$=""
1520 S1$=""+CC$+"[146]":PRINT" PLAYING PIECE IN POSITION ";S1$;".":S1$=""
1530 PRINT:PRINT" PRESS 'F1' FOR AUTO-SOLVE; 'F7' TO":PRINT" END."
1540 P=890:GOSUB180:PRINT"PRESS <RETURN> TO BEGIN"
1550 GETKY$:IFKY$<>CHR$(13)THEN1550
1560 FT=0:RETURN
1570 IFH<=15THENIFH>=13THENH=H-12:RETURN
1580 IFH<=26THENIFH>=22THENH=H-18:RETURN
1590 IFH<=37THENIFH>=31THENH=H-22:RETURN
1600 IFH<=47THENIFH>=41THENH=H-25:RETURN
1610 IFH<=57THENIFH>=51THENH=H-28:RETURN
1620 IFH<=66THENIFH>=62THENH=H-32:RETURN
1630 IFH<=75THENIFH>=73THENH=H-38:RETURN
1640 ER=4:RETURN
1650 P=960:GOSUB180:PRINT"I HOPE YOU HAD FUN WITH 'PEG SOLITAIRE'[146]";
1660 FORTM=1TO2000:NEXT:GOTO730
1665 A$(1)="[144][213][201][157][157][202][203][146]":A$(2)="[213][201][157][157][202][203][146]":A$(3)="[176][174][157][157][173][189][146]"
1666 FOR X=1 TO 16:READ C$(X):NEXT
1670 DATA LATIN CROSS,GREEK CROSS,FOOTBALL TEAM,PYRAMID OF CHEFREN,SHRINE
1680 DATA PYRAMID OF CHEOPS,TIFFANY LAMP,CENTER TO CENTER,DAVIS JUMP
1690 DATA FIVE CROSSES,PENTAGON,DOUBLE CROSS,TILTED SQUARE,OCTAGRAM
1700 DATA"VIEW SCREENS[146]",END
1710 DATA 5,5,44,8,6,44,10,8,44,8,7,44,14,12,34,15,8,44,16,10,44,31,18,44
1720 DATA 31,15,35,20,10,44,23,15,44,20,16,44,23,11,44,28,24,44
1750 REM - SOUND PARAMS
1760 VO=54296:WV=54276:AT=54277:HI=54273:LO=54272
1762 REM - SPRITE INFO
1763 DATA255,255,248,128,,8,128,,8,128,,8,128,,8,128,,8,128,,8,128,,8,128,,8
1764 DATA128,,8,255,255,248,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,255
1765 VV=53248:J2=127:PRT2=56320:SX=142:SY=64
1766 SYSRS,1763:POKE2041,14:FORX=896TO958:READZ:POKEX,Z:NEXT
1767 POKEVV+40,7:GOTO220
1790 D$="1111121111222111112111111211111111111":GOTO2070
1810 D$="1111121111121111222221111211111211111":GOTO2070
1830 D$="2221222111222111121211111111111111111":GOTO2070
1850 D$="1113111311121111122211122222131113111":GOTO2080
1870 D$="1211121112222211112111111211112221222":GOTO2090
1890 D$="1111121111222111222221222222211111111":GOTO2070
1910 D$="1213222312222211112111111211132223222":GOTO2080
1930 D$="2223222322222222221222222222232223222":GOTO2080
1950 D$="2223222322221222222222222222232223222":GOTO2100
1970 D$="1211222112121212222222121212112221121":GOTO2070
1990 D$="1213222312222212222222122222132223111":GOTO2080
2010 D$="1212121211222112222222112221121212121":GOTO2070
2030 D$="1211222112222212221222122222112221121":GOTO2070
2050 D$="1212222212222212222222122222122222121":GOTO2070
2060 PUZZLE SOLVED
2070 SLV=38:S=19:GOTO1440
2080 SLV=46:S=19:GOTO1440
2090 SLV=38:S=12:GOTO1440
2100 SLV=46:S=13:GOTO1440
2110 "SOLUTIONS
2120 [153]"LOAD":[151]53280,6:[151]53281,0:[150] [165]CT(X)[178](42[171]X)[173]2
2130 [153][163][165]CT([195](NM$)));""NM$"WAIT":[153]
2140 [153]"     MOVES REQUIRED TO SOLVE THE PUZZLE"
2150 [153]" ARE AS FOLLOWS.  JUMPS ARE INDICATED"
2160 [153]" AS A SERIES OF CONNECTED MOVES.":[153]
2170 B1[178]2170[170](B[172]20)
2180 [151]785,188:[151]786,168:[151]B1,[194](B1):B1[178][183](0)
2190 [153]" 1. 34-32   2. 54-34   3. 35-33":[153]" 4. 32-34   5. 24-44"
2200 SC[178]360:[137]2660
2210 [153]" 1. 54-74   2. 34-54   3. 46-44-64"
2220 [153]" 4. 42-44   5. 74-54-34   6. 24-44":SC[178]360:[137]2660
2230 [153]" 1. 24-22   2. 34-36   3. 43-23":[153]" 4. 15-35   5. 45-25   ";
2240 [153]"6. 13-15-35":[153]" 7. 36-34   8. 22-24-44":SC[178]400:[137]2660
2250 [153]" 1. 55-35-33   2. 53-55   3. 56-54":[153]" 4. 44-64   5. 33-53   6. 52-54"
2260 [153]" 7. 64-44":SC[178]400:[137]2660
2270 [153]" 1. 73-53   2. 75-55   3. 54-56":[153]" 4. 74-54   5. 53-55   6. 56-54"
2280 [153]" 7. 44-64   8. 24-44   9. 36-34-54":[153]" 10. 32-34  11. 64-44-24  ";
2285 [153]"12. 14-34":SC[178]440:[137]2660
2290 [153]" 1. 43-41   2. 34-32   3. 44-64":[153]" 4. 45-65-63-43   5. 57-55"
2300 [153]" 6. 51-31-33-53   7. 52-54-56-36-34":[153]" 8. 24-44"
2305 SC[178]440:[137]2660
2310 [153]" 1. 23-43  2. 25-45  3. 75-55-53-33-35"
2320 [153]" 4. 36-34  5. 74-54  6. 73-53-55-35-33"
2325 [153]" 7. 14-34  8. 44-24  9. 32-34":[153]" 10. 24-44":SC[178]440:[137]2660
2330 [153]" 1. 64-44  2. 56-54  3. 75-55":[153]" 4. 45-65  5. 25-45  6. 37-35"
2331 [153]" 7. 34-36  8. 57-37-35  9. 53-55":[153]" 10. 51-53  11. 32-34-36-56";
2332 [153]"-54-52":[153]" 12. 73-75-55-35"
2333 [153]" 13. 13-33  14. 43-23  15. 15-13-33"
2334 [153]" 16. 31-51-53  17. 63-43-23-25-45-43":[153]" 18. 42-44"
2335 SC[178]640:[137]2660
2350 [153]" 1. 15-35  2. 45-25  3. 65-45":[153]" 4. 57-55  5. 54-56  6. 13-15";
2351 [153]"-35-55":[153]" 7. 33-35  8. 31-33":[153]" 9. 52-54-34-32  ";
2352 [153]"10. 51-31-33 ";
2353 [153]"11. 73-53":[153]" 12. 23-25-45-65-63  13. 37-57-55"
2354 [153]" 14. 36-56-54-52-32-34":[153]" 15. 75-73-53-33-35":SC[178]560:[137]2660
2370 [153]" 1. 46-66  2. 44-46  3. 47-45":[153]" 4. 24-26-46-44-24  5. 14-34"
2371 [153]" 6. 42-22-24-44-42  7. 41-43":[153]" 8. 64-62-42-44-64  9. 74-54"
2372 [153]" 10. 66-64-44":SC[178]480:[137]2660
2390 [153]" 1. 55-75  2. 63-65  3. 75-55":[153]" 4. 44-64  5. 52-54  6. 64-44"
2391 [153]" 7. 56-54  8. 32-52  9. 34-32":[153]" 10. 54-34  11. 35-33-53-51-31"
2392 [153]" -33-13-15-35-55  12. 47-45  13. 55-35":[153]" 14. 36-34  15. 24-44"
2393 SC[178]520:[137]2660
2410 [153]" 1. 45-65-63  2. 62-64  3. 53-55":[153]" 4. 74-54-56  5. 47-45  ";
2411 [153]"6. 66-46":[153]" 7. 34-36  8. 45-47  9. 26-46":[153]" 10. 47-45  ";
2412 [153]"11. 33-53  12. 45-43":[153]" 13. 53-33  14. 14-34-32  15. 41-43"
2413 [153]" 16. 22-42-44":SC[178]520:[137]2660
2430 [153]" 1. 46-26  2. 24-44  3. 26-24":[153]" 4. 55-75  5. 14-34-36"
2431 [153]" 6. 53-55-57-37-35-55  7. 75-73-53":[153]" 8. 43-45-65-63-43  ";
2432 [153]"9. 33-31-51-53-33":[153]" 10. 23-43  11. 42-44":SC[178]520:[137]2660
2450 [153]" 1. 55-75  2. 63-65  3. 75-55":[153]" 4. 45-65  5. 47-45  6. 44-64"
2451 [153]" 7. 65-63  8. 62-64  9. 74-54":[153]" 10. 42-62  11. 54-52  12. 62-42"
2452 [153]" 13. 66-46-44  14. 43-45  15. 41-43":[153]" 16. 26-46-44  17. 25-45 ";
2453 [153]"18. 33-53":[153]" 19. 45-43  20. 53-33-35  21. 14-34"
2454 [153]" 22. 35-33  23. 32-34  24. 22-24-44":SC[178]640
2660 [151]781,23:[158]59903
2670 P[178]922:[141]180:[153]"'F1'-NEW GAME   'F7'-PRINT SOLUTION":[151]198,0
2680 [161] KY$:[139] KY$[178]"" [167]2680
2690 KY[178][171](KY$[178]"INPUT")[171]2[172](KY$[178]"LET")
2700 [145] KY [137]2710,2720:[137]2680
2710 [151]53280,14:[151]53281,6:[138]
2720 [151]781,23:[158]59903:P[178]930:[141]180:[153]"PRINTER READY [Y/N]: CMD";:[151]198,0
2730 [161] KY$:[139] KY$[178]"" [167]2730
2740 KY[178][171](KY$[178]"Y")[171]2[172](KY$[178]"N"):[153]KY$;
2750 [145] KY [137]190,2660:[137]2720
2760 [151]781,23:[158]59903:P[178]930:[141]180:[153]"THE PRINTER IS OFF!WAIT"
2770 [129]TM[178]1[164]2000:[130]:KY$[178]"":CT[178][184](0):[137]2720
2780 [143] - SET UP FOR AUTOSOLVE
2790 DY[178]0:ZZ[178]1:MV[178]0:D$[178]"":D$[178]D1$:D1$[178]"":[151]VV[170]2,0
2800 [158] RS,3000[170](PZ[172]100):[137]1450
3100 [131]34,32,54,34,35,33,32,34,24,44
3200 [131]54,74,34,54,46,44,44,64,42,44,74,54,54,34,24,44
3300 [131]24,22,34,36,43,23,15,35,45,25,13,15,15,35,36,34,22,24,24,44
3400 [131]55,35,35,33,53,55,56,54,44,64,33,53,52,54,64,44
3500 [131]73,53,75,55,54,56,74,54,53,55,56,54,44,64,24,44,36,34,34,54
3510 [131]32,34,64,44,44,24,14,34
3600 [131]43,41,34,32,44,64,45,65,65,63,63,43,57,55,51,31,31,33,33,53
3610 [131]52,54,54,56,56,36,36,34,24,44
3700 [131]23,43,25,45,75,55,55,53,53,33,33,35,36,34,74,54
3710 [131]73,53,53,55,55,35,35,33,14,34,44,24,32,34,24,44
3800 [131]64,44,56,54,75,55,45,65,25,45,37,35,34,36,57,37,37,35,53,55,51,53
3810 [131]32,34,34,36,36,56,56,54,54,52,73,75,75,55,55,35,13,33,43,23
3820 [131]15,13,13,33,31,51,51,53,63,43,43,23,23,25,25,45,45,43,42,44
3900 [131]15,35,45,25,65,45,57,55,54,56,13,15,15,35,35,55,33,35,31,33
3910 [131]52,54,54,34,34,32,51,31,31,33,73,53,23,25,25,45,45,65,65,63
3920 [131]37,57,57,55,36,56,56,54,54,52,52,32,32,34,75,73,73,53,53,33,33,35
4000 [131]46,66,44,46,47,45,24,26,26,46,46,44,44,24,14,34,42-24,22-24,24,44,44,42
4010 [131]41,43,64,62,62,42,42,44,44,64,74,54,66,64,64,44
4100 [131]55,75,63,65,75,55,44,64,52,54,64,44,56,54,32,52,34,32,54,34
4110 [131]35,33,33,53,53,51,51,31,31,33,33,13,13,15,15,35,35,55
4120 [131]47,45,55,35,36,34,24,44
4200 [131]45,65,65,63,62,64,53,55,74,54,54,56,47,45,66,46,34,36,45,47,26,46
4210 [131]47,45,33,53,45,43,53,33,14,34,34,32,41,43,22,42,42,44
4300 [131]46,26,24,44,26,24,55,75,14,34,34,36,53,55,55,57,57,37,37,35,35,55
4310 [131]75,73,73,53,43,45,45,65,65,63,63,43,33,31,31,51,51,53,53,33,23,43,42,44
4400 [131]55,75,63,65,75,55,45,65,47,45,44,64,65,63,62,64,74,54,42,62,54,52
4410 [131]62,42,66,46,46,44,43,45,41,43,26,46,46,44,25,45,33,53,45,43
4420 [131]53,33,33,35,14,34,35,33,32,34,22,24,24,44